home *** CD-ROM | disk | FTP | other *** search
/ Introducing the New Way to Shop From Home / Introducing the New Way to Shop From Home (Iceland Foods) (2003).iso / pc / MacStepbyStep.dxr / Internal_78_buy pizza3.ls < prev    next >
Encoding:
Text File  |  2003-01-01  |  5.0 KB  |  121 lines
  1. on mouseDown
  2.   global gQuantity3, gQuantityTotal3, gCost3, gTotalCost, gList1Quant, gList1Prod, gList1Cost, gList1Total, gList2Quant, gList2Prod, gList2Cost, gList2Total, gList3Quant, gList3Prod, gList3Cost, gList3Total, gList4Quant, gList4Prod, gList4Cost, gList4Total, gList5Quant, gList5Prod, gList5Cost, gList5Total, gList6Quant, gList6Prod, gList6Cost, gList6Total, gList7Quant, gList7Prod, gList7Cost, gList7Total, gList8Quant, gList8Prod, gList8Cost, gList8Total, gList9Quant, gList9Prod, gList9Cost, gList9Total, gList10Quant, gList10Prod, gList10Cost, gList10Total, gList11Quant, gList11Prod, gList11Cost, gList11Total, gList12Quant, gList12Prod, gList12Cost, gList12Total, gList13Quant, gList13Prod, gList13Cost, gList13Total
  3.   if gQuantity3 = member(71).text then
  4.     nothing()
  5.   else
  6.     set the floatPrecision to 0
  7.     gQuantity3 = member(71).text
  8.     gQuantity3 = integer(gQuantity3)
  9.   end if
  10.   if gQuantity3 > 0 then
  11.     if gList1Prod = string("Iceland 9" & numToChar(34) & " Char Ckn T/Crispy Pizza") then
  12.       nothing()
  13.     else
  14.       if gList2Prod = string("Iceland 9" & numToChar(34) & " Char Ckn T/Crispy Pizza") then
  15.         gList2Quant = gList1Quant
  16.         gList2Prod = gList1Prod
  17.         gList2Cost = gList1Cost
  18.         gList2Total = gList1Total
  19.       else
  20.         if gList3Prod = string("Iceland 9" & numToChar(34) & " Char Ckn T/Crispy Pizza") then
  21.           gList3Quant = gList2Quant
  22.           gList3Prod = gList2Prod
  23.           gList3Cost = gList2Cost
  24.           gList3Total = gList2Total
  25.           gList2Quant = gList1Quant
  26.           gList2Prod = gList1Prod
  27.           gList2Cost = gList1Cost
  28.           gList2Total = gList1Total
  29.         else
  30.           if gList4Prod = string("Iceland 9" & numToChar(34) & " Char Ckn T/Crispy Pizza") then
  31.             gList4Quant = gList3Quant
  32.             gList4Prod = gList3Prod
  33.             gList4Cost = gList3Cost
  34.             gList4Total = gList3Total
  35.             gList3Quant = gList2Quant
  36.             gList3Prod = gList2Prod
  37.             gList3Cost = gList2Cost
  38.             gList3Total = gList2Total
  39.             gList2Quant = gList1Quant
  40.             gList2Prod = gList1Prod
  41.             gList2Cost = gList1Cost
  42.             gList2Total = gList1Total
  43.           else
  44.             gList13Quant = gList12Quant
  45.             gList13Prod = gList12Prod
  46.             gList13Cost = gList12Cost
  47.             gList13Total = gList12Total
  48.             gList12Quant = gList11Quant
  49.             gList12Prod = gList11Prod
  50.             gList12Cost = gList11Cost
  51.             gList12Total = gList11Total
  52.             gList11Quant = gList10Quant
  53.             gList11Prod = gList10Prod
  54.             gList11Cost = gList10Cost
  55.             gList11Total = gList10Total
  56.             gList10Quant = gList9Quant
  57.             gList10Prod = gList9Prod
  58.             gList10Cost = gList9Cost
  59.             gList10Total = gList9Total
  60.             gList9Quant = gList8Quant
  61.             gList9Prod = gList8Prod
  62.             gList9Cost = gList8Cost
  63.             gList9Total = gList8Total
  64.             gList8Quant = gList7Quant
  65.             gList8Prod = gList7Prod
  66.             gList8Cost = gList7Cost
  67.             gList8Total = gList7Total
  68.             gList7Quant = gList6Quant
  69.             gList7Prod = gList6Prod
  70.             gList7Cost = gList6Cost
  71.             gList7Total = gList6Total
  72.             gList6Quant = gList5Quant
  73.             gList6Prod = gList5Prod
  74.             gList6Cost = gList5Cost
  75.             gList6Total = gList5Total
  76.             gList5Quant = gList4Quant
  77.             gList5Prod = gList4Prod
  78.             gList5Cost = gList4Cost
  79.             gList5Total = gList4Total
  80.             gList4Quant = gList3Quant
  81.             gList4Prod = gList3Prod
  82.             gList4Cost = gList3Cost
  83.             gList4Total = gList3Total
  84.             gList3Quant = gList2Quant
  85.             gList3Prod = gList2Prod
  86.             gList3Cost = gList2Cost
  87.             gList3Total = gList2Total
  88.             gList2Quant = gList1Quant
  89.             gList2Prod = gList1Prod
  90.             gList2Cost = gList1Cost
  91.             gList2Total = gList1Total
  92.           end if
  93.         end if
  94.       end if
  95.     end if
  96.     gList1Prod = string("Iceland 9" & numToChar(34) & " Char Ckn T/Crispy Pizza")
  97.     gQuantityTotal3 = gQuantityTotal3 + gQuantity3
  98.     set the floatPrecision to 2
  99.     gCost3 = gCost3 + (gQuantity3 * 1.98999999999999999)
  100.     gList1Quant = gQuantityTotal3
  101.     gList1Cost = 1.98999999999999999
  102.     gList1Total = gCost3
  103.     gTotalCost = gTotalCost + (gQuantity3 * 1.98999999999999999)
  104.     member(79).text = string(gList1Quant & "x")
  105.     member(75).text = gList1Prod
  106.     member(80).text = string("¬£" & gList1Total)
  107.     member(74).text = string(gList2Quant & "x")
  108.     member(92).text = gList2Prod
  109.     member(94).text = string("¬£" & gList2Total)
  110.     member(89).text = string(gList3Quant & "x")
  111.     member(91).text = gList3Prod
  112.     member(158).text = string("¬£" & gList3Total)
  113.     member(159).text = string(gList4Quant & "x")
  114.     member(160).text = gList4Prod
  115.     member(162).text = string("¬£" & gList4Total)
  116.     member(73).text = string("¬£" & gTotalCost)
  117.   else
  118.     nothing()
  119.   end if
  120. end
  121.